home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 9
/
The PC-SIG Library on CD ROM - Ninth Edition.iso
/
301_400
/
DISK0322
/
DISK0322.ZIP
/
TUNE.BAS
< prev
next >
Wrap
BASIC Source File
|
1983-06-30
|
2KB
|
37 lines
10 DIM PROG$(64) 'TUNES PROGRAM - Creates Menues of Music Files -
20 SCREEN 0: KEY OFF:KEY 2,"CLS:NEW" + CHR$(13) 'Return to Basic
30 CLS:WIDTH 80:COLOR 0,0:FILES "*.TUN" 'DISPLAY TUNE FILNAMES invisibly
40 FOR DR%=1 TO 24 'Row on screen to be Read
50 FOR DC%=0 TO 65 STEP 13 'File Names are in Six Columns
60 IF CHR$(SCREEN(DR%,DC%+1))=" " THEN 130 'Stop when no more File names
70 AR%=AR%+1 'Go to next row in Array
80 FOR L%=1 TO 8 'Read first 8 characters of File name
90 PROG$(AR%)=PROG$(AR%)+CHR$(SCREEN(DR%,DC%+L%)) 'Add name to Array
100 NEXT: NEXT: NEXT
120 WIDTH 80
130 LOCATE 2,14: COLOR 14,0: PRINT "SELECT-A-TUNE.....Tunes on this diskette:"
140 FOR DC%=1 TO 27 STEP 13 'Display file names in 3 columns
150 FOR DR%=4 TO 23 'from screen row 3 to 23
160 I%=I%+1 ' Go to next row in Array
170 IF PROG$(I%)="" THEN 200 ELSE LOCATE DR%,DC%
175 COLOR 0,7:PRINT USING "##";I%;:
176 COLOR 7,0: PRINT " ";PROG$(I%); 'Stop when Array is empty
180 NEXT DR%
190 NEXT DC%
200 LOCATE 25,1: INPUT "Enter Number of Program Desired: ";P
205 LOCATE 25:PRINT " ";
210 LOCATE 25,18:PRINT "Press F2 to return to Basica when finished";
211 SOUND 32000,25: SOUND 32000,1
215 IF P=0 THEN WIDTH 80:END
220 TUNE$ = PROG$(P) + ".TUN" 'the Tune Selected
500 OPEN TUNE$ FOR INPUT AS #1
510 PLAY"MBL16T080"
520 WHILE NOT EOF(1)
530 INPUT#1,M$
540 PLAY M$
550 'PRINT M$
560 WEND
570 CLOSE
575 FOR I = 1 TO 8000:NEXT I
580 CHAIN "TUNES.BAS"